home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / apps / mr_pixels_programming_paint_set[mindscape_1985].nbz / temp (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  477 b   |  35 lines
  1. 10 PRINT CHR$(8);
  2. 20 POKE 808,225
  3. 30 POKE 8191,64
  4. 40 POKE 792,255
  5. 50 POKE 793,31
  6. 100 PRINT "[147]";
  7. 400 FOR I=1 TO 12:PRINT:NEXT I
  8. 410 PRINT TAB(12);:PRINT "LOADING DISK...";
  9. 600 NAME=16640
  10. 610 FOR I=0 TO 5
  11. 620 READ A
  12. 630 POKE NAME+I,A
  13. 640 NEXT I
  14. 700 PROG=4096
  15. 710 FOR I=0 TO 29
  16. 720 READ A
  17. 730 POKE PROG+I,A
  18. 740 NEXT I
  19. 800 SYS4096
  20. 900 DATA 76,79,65,68,69,82
  21. 1000 DATA 169,8
  22. 1100 DATA 162,8
  23. 1200 DATA 160,0
  24. 1300 DATA 32,186,255
  25. 1400 DATA 169,6
  26. 1500 DATA 162,0
  27. 1600 DATA 160,65
  28. 1700 DATA 32,189,255
  29. 1800 DATA 169,0
  30. 1900 DATA 162,240
  31. 2000 DATA 160,159
  32. 2100 DATA 32,213,255
  33. 2200 DATA 76,240,159
  34. 9999 END
  35.